home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / wcl-21.lha / wcl-2.1 / src / cl / pprint / package-setup.c < prev    next >
C/C++ Source or Header  |  1992-09-10  |  5KB  |  153 lines
  1. /*
  2. :comment "Compiled at 12:00:50 pm on Tuesday, July 28, 1992"
  3. :comment "Compiler Configuration: DEFAULT"
  4. :comment "Machine Configuration: SparcStation (gcc)"
  5. :comment "cc command: gcc -w -g -O "
  6. :version 0
  7. :package (IN-PACKAGE "XP" :USE (QUOTE ("LISP"))) 
  8. :end-package-info 0
  9. :sym WRITE
  10. :sym PRINT
  11. :sym PRIN1
  12. :sym PRINC
  13. :sym PPRINT
  14. :sym FORMAT
  15. :sym WRITE-TO-STRING
  16. :sym PRINC-TO-STRING
  17. :sym PRIN1-TO-STRING
  18. :sym WRITE-LINE
  19. :sym WRITE-STRING
  20. :sym WRITE-CHAR
  21. :sym TERPRI
  22. :sym FRESH-LINE
  23. :sym DEFSTRUCT
  24. :sym FINISH-OUTPUT
  25. :sym FORCE-OUTPUT
  26. :sym CLEAR-OUTPUT
  27. :sym NIL
  28. :sym SHADOW
  29. :sym FORMATTER
  30. :sym COPY-PPRINT-DISPATCH
  31. :sym PPRINT-DISPATCH
  32. :sym SET-PPRINT-DISPATCH
  33. :sym PPRINT-FILL
  34. :sym PPRINT-LINEAR
  35. :sym PPRINT-TABULAR
  36. :sym PPRINT-LOGICAL-BLOCK
  37. :sym PPRINT-POP
  38. :sym PPRINT-EXIT-IF-LIST-EXHAUSTED
  39. :sym PPRINT-NEWLINE
  40. :sym PPRINT-INDENT
  41. :sym PPRINT-TAB
  42. :sym *PRINT-PPRINT-DISPATCH*
  43. :sym *PRINT-RIGHT-MARGIN*
  44. :sym *DEFAULT-RIGHT-MARGIN*
  45. :sym *PRINT-MISER-WIDTH*
  46. :sym *PRINT-LINES*
  47. :sym *LAST-ABBREVIATED-PRINTING*
  48. :sym *PRINT-SHARED*
  49. :sym EXPORT
  50. :sf PACKAGE-SETUP_INIT3 "p_xp_PACKAGE_2DSETUP_5FINIT3"
  51. :init PACKAGE-SETUP_INIT3
  52. :pinfo XP::PACKAGE-SETUP_INIT3 NIL NIL NIL NIL NIL NIL NIL T
  53. :end
  54. */
  55.  
  56. #include "lisp.h"
  57.  
  58. extern LP p_xp_PACKAGE_2DSETUP_5FINIT3();
  59. extern SYMBOL s_lsp_WRITE; 
  60. extern SYMBOL s_lsp_PRINT; 
  61. extern SYMBOL s_lsp_PRIN1; 
  62. extern SYMBOL s_lsp_PRINC; 
  63. extern SYMBOL s_lsp_PPRINT; 
  64. extern SYMBOL s_lsp_FORMAT; 
  65. extern SYMBOL s_lsp_WRITE_2DTO_2DSTRING; 
  66. extern SYMBOL s_lsp_PRINC_2DTO_2DSTRING; 
  67. extern SYMBOL s_lsp_PRIN1_2DTO_2DSTRING; 
  68. extern SYMBOL s_lsp_WRITE_2DLINE; 
  69. extern SYMBOL s_lsp_WRITE_2DSTRING; 
  70. extern SYMBOL s_lsp_WRITE_2DCHAR; 
  71. extern SYMBOL s_lsp_TERPRI; 
  72. extern SYMBOL s_lsp_FRESH_2DLINE; 
  73. extern SYMBOL s_lsp_DEFSTRUCT; 
  74. extern SYMBOL s_lsp_FINISH_2DOUTPUT; 
  75. extern SYMBOL s_lsp_FORCE_2DOUTPUT; 
  76. extern SYMBOL s_lsp_CLEAR_2DOUTPUT; 
  77. extern SYMBOL s_lsp_NIL; 
  78. MAKE_CONS(k17,LREF(s_lsp_CLEAR_2DOUTPUT),LREF(s_lsp_NIL));
  79. MAKE_CONS(k16,LREF(s_lsp_FORCE_2DOUTPUT),LREF(k17));
  80. MAKE_CONS(k15,LREF(s_lsp_FINISH_2DOUTPUT),LREF(k16));
  81. MAKE_CONS(k14,LREF(s_lsp_DEFSTRUCT),LREF(k15));
  82. MAKE_CONS(k13,LREF(s_lsp_FRESH_2DLINE),LREF(k14));
  83. MAKE_CONS(k12,LREF(s_lsp_TERPRI),LREF(k13));
  84. MAKE_CONS(k11,LREF(s_lsp_WRITE_2DCHAR),LREF(k12));
  85. MAKE_CONS(k10,LREF(s_lsp_WRITE_2DSTRING),LREF(k11));
  86. MAKE_CONS(k9,LREF(s_lsp_WRITE_2DLINE),LREF(k10));
  87. MAKE_CONS(k8,LREF(s_lsp_PRIN1_2DTO_2DSTRING),LREF(k9));
  88. MAKE_CONS(k7,LREF(s_lsp_PRINC_2DTO_2DSTRING),LREF(k8));
  89. MAKE_CONS(k6,LREF(s_lsp_WRITE_2DTO_2DSTRING),LREF(k7));
  90. MAKE_CONS(k5,LREF(s_lsp_FORMAT),LREF(k6));
  91. MAKE_CONS(k4,LREF(s_lsp_PPRINT),LREF(k5));
  92. MAKE_CONS(k3,LREF(s_lsp_PRINC),LREF(k4));
  93. MAKE_CONS(k2,LREF(s_lsp_PRIN1),LREF(k3));
  94. MAKE_CONS(k1,LREF(s_lsp_PRINT),LREF(k2));
  95. MAKE_CONS(k0,LREF(s_lsp_WRITE),LREF(k1));
  96. extern SYMBOL s_lsp_SHADOW; 
  97. extern SYMBOL s_xp_FORMATTER; 
  98. extern SYMBOL s_xp_COPY_2DPPRINT_2DDISPATCH; 
  99. extern SYMBOL s_xp_PPRINT_2DDISPATCH; 
  100. extern SYMBOL s_xp_SET_2DPPRINT_2DDISPATCH; 
  101. extern SYMBOL s_xp_PPRINT_2DFILL; 
  102. extern SYMBOL s_xp_PPRINT_2DLINEAR; 
  103. extern SYMBOL s_xp_PPRINT_2DTABULAR; 
  104. extern SYMBOL s_xp_PPRINT_2DLOGICAL_2DBLOCK; 
  105. extern SYMBOL s_xp_PPRINT_2DPOP; 
  106. extern SYMBOL s_xp_PPRINT_2DEXIT_2DIF_2DLIST_2DEXHAUSTED; 
  107. extern SYMBOL s_xp_PPRINT_2DNEWLINE; 
  108. extern SYMBOL s_xp_PPRINT_2DINDENT; 
  109. extern SYMBOL s_xp_PPRINT_2DTAB; 
  110. extern SYMBOL s_xp__2APRINT_2DPPRINT_2DDISPATCH_2A; 
  111. extern SYMBOL s_xp__2APRINT_2DRIGHT_2DMARGIN_2A; 
  112. extern SYMBOL s_xp__2ADEFAULT_2DRIGHT_2DMARGIN_2A; 
  113. extern SYMBOL s_xp__2APRINT_2DMISER_2DWIDTH_2A; 
  114. extern SYMBOL s_xp__2APRINT_2DLINES_2A; 
  115. extern SYMBOL s_xp__2ALAST_2DABBREVIATED_2DPRINTING_2A; 
  116. extern SYMBOL s_xp__2APRINT_2DSHARED_2A; 
  117. MAKE_CONS(k37,LREF(s_xp__2APRINT_2DSHARED_2A),LREF(s_lsp_NIL));
  118. MAKE_CONS(k36,LREF(s_xp__2ALAST_2DABBREVIATED_2DPRINTING_2A),LREF(k37));
  119. MAKE_CONS(k35,LREF(s_xp__2APRINT_2DLINES_2A),LREF(k36));
  120. MAKE_CONS(k34,LREF(s_xp__2APRINT_2DMISER_2DWIDTH_2A),LREF(k35));
  121. MAKE_CONS(k33,LREF(s_xp__2ADEFAULT_2DRIGHT_2DMARGIN_2A),LREF(k34));
  122. MAKE_CONS(k32,LREF(s_xp__2APRINT_2DRIGHT_2DMARGIN_2A),LREF(k33));
  123. MAKE_CONS(k31,LREF(s_xp__2APRINT_2DPPRINT_2DDISPATCH_2A),LREF(k32));
  124. MAKE_CONS(k30,LREF(s_xp_PPRINT_2DTAB),LREF(k31));
  125. MAKE_CONS(k29,LREF(s_xp_PPRINT_2DINDENT),LREF(k30));
  126. MAKE_CONS(k28,LREF(s_xp_PPRINT_2DNEWLINE),LREF(k29));
  127. MAKE_CONS(k27,LREF(s_xp_PPRINT_2DEXIT_2DIF_2DLIST_2DEXHAUSTED),LREF(k28));
  128. MAKE_CONS(k26,LREF(s_xp_PPRINT_2DPOP),LREF(k27));
  129. MAKE_CONS(k25,LREF(s_xp_PPRINT_2DLOGICAL_2DBLOCK),LREF(k26));
  130. MAKE_CONS(k24,LREF(s_xp_PPRINT_2DTABULAR),LREF(k25));
  131. MAKE_CONS(k23,LREF(s_xp_PPRINT_2DLINEAR),LREF(k24));
  132. MAKE_CONS(k22,LREF(s_xp_PPRINT_2DFILL),LREF(k23));
  133. MAKE_CONS(k21,LREF(s_xp_SET_2DPPRINT_2DDISPATCH),LREF(k22));
  134. MAKE_CONS(k20,LREF(s_xp_PPRINT_2DDISPATCH),LREF(k21));
  135. MAKE_CONS(k19,LREF(s_xp_COPY_2DPPRINT_2DDISPATCH),LREF(k20));
  136. MAKE_CONS(k18,LREF(s_xp_FORMATTER),LREF(k19));
  137. extern SYMBOL s_lsp_EXPORT; 
  138.  
  139.  
  140.  
  141.  
  142. LP p_xp_PACKAGE_2DSETUP_5FINIT3(argc)
  143.       ARGC argc; 
  144. {
  145.  
  146. LP t0; LP t1; LP t2; 
  147. if (argc != 0) wna(argc,0);
  148. ICALL(s_lsp_SHADOW) (1, LREF(k0));
  149. t0 = ICALL(s_lsp_EXPORT) (MV_CALL(argc,1), LREF(k18));
  150. return(t0);
  151. }
  152.  
  153.